home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gamers Delight 2
/
Gamers Delight 2.iso
/
Aminet
/
game
/
demo
/
GDS_VIEWER.lha
/
view.c
< prev
Wrap
C/C++ Source or Header
|
1993-12-30
|
14KB
|
500 lines
#include <stdio.h>
#include <stdlib.h>
#include <exec/types.h>
#include <intuition/intuition.h>
#include <intuition/intuitionbase.h>
#include <graphics/gfx.h>
#include <clib/exec_protos.h>
#include <clib/intuition_protos.h>
#include <clib/graphics_protos.h>
#include <pragmas/exec_sysbase_pragmas.h>
#include <pragmas/intuition_pragmas.h>
#include <pragmas/graphics_pragmas.h>
#include "GameSmith:include/libraries/libraries.h"
#include "GameSmith:include/libraries/libptrs.h"
#include "GameSmith:GameSmith.h"
#define FONT_WIDTH 8
#define FONT_HEIGHT 8
#define CUSTOM_FLAGS (BORDERLESS|SUPER_BITMAP|ACTIVATE|NOCAREREFRESH|GIMMEZEROZERO|WINDOWCLOSE)
#define WB_FLAGS (SUPER_BITMAP|ACTIVATE|WINDOWSIZING|WINDOWDEPTH|WINDOWCLOSE|WINDOWDRAG|GIMMEZEROZERO|NOCAREREFRESH)
/* ----------------------------------------------------------------------- */
/* Function prototypes: */
int get_wb_info(void);
int load_image(char *);
int display_image(char *);
int display_image_window(char *);
int display_image_screen(char *);
/* ----------------------------------------------------------------------- */
int left,right,top,bottom,barheight,width,height,depth;
unsigned long color[256]; /* color table */
char screen_title[]="GameSmith® IFF ILBM Loader";
char topaz8_text[]="topaz.font";
struct TextAttr topaz8 =
{
topaz8_text, /* Addr of ASCIIZ string containing font name */
8, /* font YSize (height) */
FS_NORMAL, /* style flags */
FPF_DESIGNED|FPF_ROMFONT /* flags */
};
unsigned short pens[] = {0xffff}; /* needed for new (3d) look */
struct TagItem tags[] = {
{
SA_Pens,
(unsigned long)pens
},
{
SA_Width,
STDSCREENWIDTH
},
{
SA_Height,
STDSCREENHEIGHT
},
{
SA_Depth,
0L
},
{
SA_AutoScroll,
1L
},
{
SA_Type,
CUSTOMSCREEN
},
{
SA_Quiet,
1L
},
{
SA_Overscan,
OSCAN_TEXT
},
{
TAG_DONE,
0L
}
};
struct ExtNewScreen newscreen =
{
0,0, /* left & top edges */
0,0,0, /* width, height, & depth (filled) */
1,2, /* detail & block pens */
0, /* view modes (filled) */
CUSTOMSCREEN|SCREENQUIET|AUTOSCROLL|
NS_EXTENDED, /* type */
&topaz8, /* text attribute for font */
NULL, /* screen title */
NULL, /* ptr to gadgets */
NULL, /* ptr to bitmap */
tags /* addr of screen tags for V6 and later */
};
char custom_text[]="Custom Screen";
char wb_text[]="WorkBench Window";
char quit_text[]="Quit";
struct IntuiText item1b_it =
{
1,0, /* Front & Back pens (color reg #) */
JAM1, /* Draw mode */
0,1, /* left & top edge offsets */
&topaz8, /* ptr to font desc. (ROM font) */
quit_text, /* addr of actual text string */
NULL /* ptr to next intuitext struct */
};
struct MenuItem item1b =
{
NULL, /* ptr to next menu item */
0, /* left edge */
FONT_HEIGHT+2, /* top edge */
17*FONT_WIDTH, /* width (# chars * width of font) */
FONT_HEIGHT+2, /* height */
ITEMTEXT|
ITEMENABLED|HIGHCOMP, /* flags */
0, /* mutual exclusion indicator (none) */
(APTR)&item1b_it, /* ptr to item fill */
NULL, /* select fill (don't change, just highlight) */
0, /* command, or hotkey */
NULL, /* ptr to 1st subitem */
NULL /* ptr to next selected item (system filled) */
};
struct IntuiText item1a_it =
{
1,0, /* Front & Back pens (color reg #) */
JAM1, /* Draw mode */
0,1, /* left & top edge offsets */
&topaz8, /* ptr to font desc. (ROM font) */
custom_text, /* addr of actual text string */
NULL /* ptr to next intuitext struct */
};
struct MenuItem item1a =
{
&item1b, /* ptr to next menu item */
0, /* left edge */
0, /* top edge */
17*FONT_WIDTH, /* width (# chars * width of font) */
FONT_HEIGHT+2, /* height */
ITEMTEXT|
ITEMENABLED|HIGHCOMP, /* flags */
0, /* mutual exclusion indicator (none) */
(APTR)&item1a_it, /* ptr to item fill */
NULL, /* select fill (don't change, just highlight) */
0, /* command, or hotkey */
NULL, /* ptr to 1st subitem */
NULL /* ptr to next selected item (system filled) */
};
char menu1_text[]="Display";
struct Menu menu1 =
{
NULL, /* ptr to next menu struct */
0,0, /* left edge, top edge */
8*FONT_WIDTH, /* width ((# chars + 1) * width of font) */
FONT_HEIGHT, /* height (ignored by intuition) */
MENUENABLED, /* flags */
menu1_text, /* ptr to ASCIIZ name string */
&item1a /* ptr to 1st menu item */
};
BitMapHeader bmh;
struct loadILBM_struct loadimg =
{
NULL, /* ptr to picture name string */
NULL, /* ptr to 1st bitmap */
NULL, /* ptr to 2nd bitmap (if any) */
color, /* ptr to color table array */
256, /* # colors in color table */
NULL, /* height of image in pixels (filled by load call) */
NULL, /* width of image in pixels (filled) */
NULL, /* x display offset (filled) */
NULL, /* y display offset (filled) */
NULL, /* pic mode (filled) */
0, /* x load offset (from left) in bytes */
0, /* y load offset (from top) in rows */
ILBM_ALLOC1|ILBM_COLOR, /* flags (alloc 1 bitmap, fill color table) */
0xff, /* bitplane fill mask */
0xff, /* bitplane load mask */
&bmh /* address of BitMapHeader to fill */
};
struct NewWindow pic_win=
{
0,0,0,0, /* left edge, top edge, width, height */
1,2, /* detail & block pens */
CLOSEWINDOW|MENUPICK, /* IDCMP flags */
WB_FLAGS, /* window flags */
NULL, /* ptr to 1st gadget */
NULL, /* ptr to checkmark image */
NULL, /* window title */
NULL, /* ptr to screen */
NULL, /* ptr to bitmap to use for refresh */
30,30,0,0, /* min width & height, max width & height */
WBENCHSCREEN /* window type */
};
struct NewWindow pic_win2=
{
0,0,0,0, /* left edge, top edge, width, height */
1,2, /* detail & block pens */
CLOSEWINDOW|MENUPICK, /* IDCMP flags */
CUSTOM_FLAGS, /* window flags */
NULL, /* ptr to 1st gadget */
NULL, /* ptr to checkmark image */
NULL, /* window title */
NULL, /* ptr to screen */
NULL, /* ptr to bitmap to use for refresh */
0,0,0,0, /* min width & height, max width & height */
CUSTOMSCREEN /* window type */
};
/***************************************************************************/
main(argc,argv)
int argc;
char *argv[];
{
int err;
if (gs_open_libs(INTUITION|DOS|GRAPHICS,0))
exit(-99); /* open necessary Amiga libs */
if (argc < 2) /* check # command line arguements */
{
DisplayBeep(NULL); /* if error, flash the screen */
gs_close_libs(); /* close Amiga libs */
exit(-98); /* 1st arg has to be name of file to display */
}
if (err=get_wb_info()) /* get workbench size, depth, & window border info */
{
DisplayBeep(NULL); /* if error, flash the screen */
gs_close_libs(); /* close Amiga libs */
exit(err);
}
if (argc >= 3)
pic_win.LeftEdge=atoi(argv[2]); /* set left edge of window */
if (argc >= 4)
pic_win.TopEdge=atoi(argv[3]); /* set top edge of window */
if (err=load_image(argv[1])) /* load image into it's own bitmap */
{
DisplayBeep(NULL); /* if error, flash the screen */
gs_close_libs(); /* close Amiga libs */
exit(err);
}
printf("\n%d x %d x %d\n",bmh.w,bmh.h,bmh.nPlanes); /* print dimensions */
if (err=display_image(argv[1])) /* display it in a superbitmap window */
{
DisplayBeep(NULL); /* if error, flash the screen */
gs_free_bitmap(loadimg.bitmap1); /* free up bitmap we alloced by image load */
gs_close_libs(); /* close Amiga libs */
exit(err);
}
gs_free_bitmap(loadimg.bitmap1); /* free up bitmap we alloced by image load */
gs_close_libs(); /* close Amiga libs */
exit(0);
}
/***************************************************************************/
int get_wb_info()
{
struct Screen *s,screen13; /* for polling WB attributes */
if (IntuitionBase->LibNode.lib_Version >= 36) /* if OS 2.0 or above */
{ /* get info about workbench screen */
if (!(s=LockPubScreen("Workbench")))
return(-97);
left=s->WBorLeft;
right=s->WBorRight;
top=s->WBorTop;
bottom=s->WBorBottom;
barheight=s->BarHeight;
width=s->Width;
height=s->Height;
depth=s->BitMap.Depth;
UnlockPubScreen(NULL,s);
}
else /* else use old 1.3 method of polling WB attributes */
{
if (!GetScreenData(&screen13,sizeof(struct Screen),WBENCHSCREEN,NULL))
return(-97);
left=screen13.WBorLeft;
right=screen13.WBorRight;
top=screen13.WBorTop;
bottom=screen13.WBorBottom;
barheight=screen13.BarHeight;
width=screen13.Width;
height=screen13.Height;
depth=screen13.BitMap.Depth;
}
return(0);
}
/***************************************************************************/
int load_image(file)
char *file;
{
loadimg.file=file;
return(gs_loadILBM(&loadimg)); /* load the ILBM file */
}
/***************************************************************************/
int display_image(file)
char *file;
{
int retcode=1;
while (retcode > 0)
{
retcode=display_image_screen(file);
if (retcode > 0)
retcode=display_image_window(file);
}
return(retcode);
}
/***************************************************************************/
int display_image_window(file)
char *file;
{
int done=0,retcode=0;
struct IntuiMessage *msg;
struct Window *win;
struct ExecBase *SysBase=*(struct ExecBase **)4;
/* now set window width & height */
pic_win.Width=(loadimg.bitmap1->BytesPerRow*8)+left+right+14;
pic_win.Height=loadimg.bitmap1->Rows+top+bottom+9;
pic_win.MaxWidth=pic_win.Width; /* set maximum window width & height */
pic_win.MaxHeight=pic_win.Height;
pic_win.TopEdge+=barheight+1;
pic_win.BitMap=loadimg.bitmap1; /* ptr to refresh bitmap */
if ((pic_win.Width+pic_win.LeftEdge) > width) /* make sure window fits in WB */
pic_win.Width=width-pic_win.LeftEdge;
if ((pic_win.Height+pic_win.TopEdge) > height)
pic_win.Height=height-pic_win.TopEdge;
pic_win.Title=file; /* title is name of file */
if (!(win=OpenWindow(&pic_win)))
return(-96); /* unable to open window */
if ((win->BorderRight != 18) || (win->BorderTop != 11) ||
(win->BorderLeft != 4) || (win->BorderBottom != 2))
{ /* make sure we got window borders correct */
right=(loadimg.bitmap1->BytesPerRow*8)+win->BorderLeft+win->BorderRight;
bottom=loadimg.bitmap1->Rows+win->BorderTop+win->BorderBottom;
WindowLimits(win,30,30,right,bottom);
SizeWindow(win,right-win->Width,bottom-win->Height);
}
SetWindowTitles(win,(UBYTE *)-1,screen_title);
item1a_it.IText=custom_text;
SetMenuStrip(win,&menu1); /* tack on the menu */
while (!done)
{
WaitPort(win->UserPort); /* wait for Intuition message */
msg=(struct IntuiMessage *)GetMsg(win->UserPort);
switch (msg->Class)
{
case CLOSEWINDOW:
done=1;
break;
case MENUPICK:
switch (ITEMNUM(msg->Code))
{
case 0:
retcode=1;
case 1:
done=1;
break;
default:
break;
}
break;
default:
break;
}
ReplyMsg((struct Message *)msg); /* tell Intuition we're done with msg, thanx */
}
SetWindowTitles(win,(UBYTE *)-1,NULL);
ClearMenuStrip(win); /* remove menu strip */
CloseWindow(win);
pic_win.TopEdge-=barheight+1;
return(retcode);
}
/***************************************************************************/
int display_image_screen(file)
char *file;
{
int done=0,retcode=0,cnt,colors,r,g,b;
struct IntuiMessage *msg;
struct Screen *screen;
struct Window *win;
struct ExecBase *SysBase=*(struct ExecBase **)4;
/* now set window width & height */
tags[1].ti_Data=loadimg.bitmap1->BytesPerRow*8;
tags[2].ti_Data=loadimg.bitmap1->Rows+barheight;
tags[3].ti_Data=loadimg.bitmap1->Depth;
newscreen.Width = loadimg.bitmap1->BytesPerRow*8;
newscreen.Height = loadimg.bitmap1->Rows+barheight;
newscreen.Depth = loadimg.bitmap1->Depth;
newscreen.ViewModes = loadimg.modes;
if (!(screen=(struct Screen *)OpenScreen((struct NewScreen *)&newscreen)))
{
DisplayBeep(NULL);
return(1); /* if can't open screen, go back to WB window */
}
pic_win2.Width=(loadimg.bitmap1->BytesPerRow*8);
pic_win2.Height=loadimg.bitmap1->Rows+barheight;
pic_win2.Screen = screen;
pic_win2.BitMap=loadimg.bitmap1; /* ptr to refresh bitmap */
if (!(win=OpenWindow(&pic_win2)))
{
CloseScreen(screen);
DisplayBeep(NULL);
return(1); /* unable to open window */
}
colors=1<<loadimg.bitmap1->Depth;
if (IntuitionBase->LibNode.lib_Version >= 39) /* if OS 3.0 or above */
{
for (cnt=0; cnt < colors; cnt++)
{
r=(color[cnt]&0x00ff0000)<<8;
g=(color[cnt]&0x0000ff00)<<16;
b=(color[cnt]&0x000000ff)<<24;
SetRGB32(&screen->ViewPort,cnt,r,g,b);
}
}
else
{
for (cnt=0; cnt < colors; cnt++)
{
r=(color[cnt]>>20)&0xf;
g=(color[cnt]>>12)&0xf;
b=(color[cnt]>>4)&0xf;
SetRGB4(&screen->ViewPort,cnt,r,g,b);
}
}
SetWindowTitles(win,screen_title,(UBYTE *)-1);
item1a_it.IText=wb_text;
SetMenuStrip(win,&menu1); /* tack on the menu */
while (!done)
{
WaitPort(win->UserPort); /* wait for Intuition message */
msg=(struct IntuiMessage *)GetMsg(win->UserPort);
switch (msg->Class)
{
case CLOSEWINDOW:
done=1;
break;
case MENUPICK:
switch (ITEMNUM(msg->Code))
{
case 0:
retcode=1;
case 1:
done=1;
break;
default:
break;
}
break;
default:
break;
}
ReplyMsg((struct Message *)msg); /* tell Intuition we're done with msg, thanx */
}
SetWindowTitles(win,(UBYTE *)-1,NULL);
ClearMenuStrip(win); /* remove menu strip */
CloseWindow(win);
CloseScreen(screen);
return(retcode);
}